home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte0387.arc / EDGINTON.ARC / LIST6.TXT < prev    next >
Encoding:
Text File  |  1986-07-16  |  462 b   |  29 lines
  1.  
  2.     TITLE     PROGRAM SHRINKER
  3.     SUBTTL    Copyright 1986 Brian Edginton
  4.     NAME      SHRINK
  5.     INCLUDE   DOS.MAC
  6.  
  7.     PSEG
  8.     PUBLIC    SHRINK
  9.     IF    LPROG
  10. SHRINK    PROC    FAR
  11.     ELSE
  12. SHRINK    PROC    NEAR
  13.     ENDIF
  14.  
  15.     PUSH    BP
  16.     MOV    BP,SP
  17.     MOV    BX, ????  ; PROGRAM SIZE + ANY
  18.                           ; STACK YOU NEED.
  19.     MOV    AX,0X4A00 ; CALL MODIFY
  20.                           ; ALLOCATED MEMORY 
  21.     INT    21H       ; BLOCKS ROUTINE.
  22.     POP    BP
  23.     RET
  24. SHRINK    ENDP
  25.     ENDPS
  26.     END
  27.  
  28.  
  29.